home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / SHELTER275.lha / rexx / SHOWAC.rexx < prev    next >
OS/2 REXX Batch file  |  1994-10-02  |  2KB  |  61 lines
  1. /**/
  2. v="$VER: ShowAC Rexx Display an RFS Account   Williamson 54.02"
  3. numeric digits 14
  4. say digits()
  5.     call open('rcfg',"ram:RFS.cfg",'r')
  6.     x=seek('rcfg',-512,'E')
  7.     do while ~eof('rcfg')
  8.         z=readln('rcfg')
  9.         if upper(left(word(z,1),3))="MAX" then interpret z
  10.     end
  11.     call close('rcfg')
  12.  
  13.     parse arg username
  14.     if index(upper(username),"LOG:RFSACCT/h/")>0 then do
  15.         parse var username apath '/' u '.0' .
  16.         AcctFile = username
  17.     end;else if index(username,"/") ~= 0 then do
  18.         u=translate(UserName,'...',"#:/")
  19.         AcctFile="LOG:RFSacct/h/"u
  20.     end;else do
  21.         u=translate(UserName,'_'," ")
  22.         AcctFile="LOG:RFSacct/h/"u||".0.0.0.0"
  23.     end
  24.     
  25.     if ~exists(AcctFile) then do
  26.         Say 'No account: 'AcctFile
  27.     end;else do
  28.         wspec = 'CON:0/10/420/100/ROOF RFS Account 'u'/WAIT/CLOSE'
  29.         call close('STDOUT') ; call open('STDOUT',wspec,'w')
  30.         call close 'STDIN';call open 'STDIN','*','R'
  31.         call open('Acct',AcctFile,'R')
  32.         FirstDate = readln('Acct')
  33.         LastDate  = readln('Acct')
  34.         NumReqs   = readln('Acct')
  35.         ReqFiles  = readln('Acct')
  36.         ReqBytes  = readln('Acct')
  37.         LastBytes = readln('Acct')
  38.         UserCalls = readln('Acct')
  39.         call close('Acct')
  40.  
  41.         if Date() = LastDate then do
  42.             availbytes      =(MaxHDaily-LastBytes) "*"
  43.             availsessions   =(MaxCalls-UserCalls) "*"
  44.         end;else do
  45.             availbytes1=MaxBytes
  46.             availbytes2=MaxHBytes
  47.             availsessions=MaxCalls
  48.         end
  49.  
  50.         Say ' First Call             :'Firstdate
  51.         Say ' Last Call              :'LastDate
  52.         Say ' Number of Requests     :'NumReqs
  53.         Say ' Files Transfered       :'ReqFiles
  54.         Say ' Total Bytes Sent       :'ReqBytes
  55.         Say ' Bytes Sent Last Call   :'LastBytes
  56.         Say ' Number of Sessions     :'Usercalls
  57.         Say ' Bytes available        :'availbytes1  availbytes2
  58.         Say ' Remaining Sessions     :'availsessions
  59.     end
  60. exit
  61.